Geographical analysis of media

5. Hypercubes exploration

Hypercubes exploration

The different dimensions of an hypercube can be analysed through different aggregation of the dimensions of the hypercubes, leading to different tables authorizing different modes of visualization. Each function is named according to the dimensions that are combined.

We start here from the situation of a researcher interested by the topic of human mobility and we load the hypercube elaborated in the previous section. We decide to analyze the topic without distinction between migrants and refugees.

hc <- readRDS("data/corpus/hc_mycorpus_states_mobil_month.RDS")

WHAT

The first question (WHAT) is the evaluation of the proportion of news related to the topic.

res_what <- what(hc = hc,
             subtop = NA,
             title = "Topic news")
res_what$table

res_what$plotly

The table indicate that 3154 news was associated to the topic which represent 2.72% of the total.

WHO.WHAT

The second question (WHO.WHAT) explore the variation of interest for the topic in the different media of the corpus.

Example

res_who_what<- who.what(hc=hc, 
                        test = FALSE,
                        minsamp = 20,
                        mintest = 5,
                        title = "Topic news by media - Salience")

kable(res_who_what$table)

who	trial	success	null.value	estimate	salience	chi2	p.value	index
fr_FRA_libera	28827	607	0.0273	0.02106	0.7714286	42.08	1.00000	0.7714286
fr_DZA_elwata	11581	292	0.0273	0.02521	0.9234432	1.82	0.91137	0.9234432
fr_BEL_derheu	16358	349	0.0273	0.02134	0.7816850	21.69	1.00000	0.7816850
fr_FRA_figaro	22999	1005	0.0273	0.04370	1.6007326	232.26	0.00000	1.6007326
fr_BEL_lesoir	26057	652	0.0273	0.02502	0.9164835	5.01	0.98737	0.9164835
fr_DZA_xpress	9814	249	0.0273	0.02537	0.9293040	1.30	0.87310	0.9293040

res_who_what$plotly 

res_who_what<- who.what(hc=hc, 
                        test = TRUE,
                        minsamp = 5,
                        mintest = 1,
                        title = "Topic news by media - Significance")
res_who_what$plotly

NA

The analysis reveal a clear over-representation of the topic in the french newspaper Le Figaro (4.37% of news) as compared to the other media (2.1 to 2.5%).

WHEN.WHAT

The third question (WHEN.WHAT) is related to the evolution of the interest of all media from the corpus for the topic of interest through time.

Example

res_when_what<- when.what(hc=hc, 
                          test=FALSE,
                          minsamp=10,
                          mintest=5,
                          title = "Topic news by month - Salience")

res_when_what$plotly

res_when_what<- when.what(hc=hc, 
                          test=TRUE,
                          minsamp=10,
                          mintest=5,
                          title = "Topic news by month - Significance")
res_when_what$plotly

The analysis reveals clear discontinuities in the timeline of the topic. We start with a low level (0.5 to 1.2%) from January 2014 to March 2015, followed by a brutal jump in April-June 2015 (3 to 5%) and a major peak in september 2015 (15.8% of news). At the end of the period, the level is clearly higher than at the beginning.

WHERE.WHAT

The fourth question (WHERE.WHAT) analyze the countries that are the most associated to the topic of interest. We exclude therefore the news where no countries are mentioned and we analyze for each country the proportion of news that are associated to the topic.

Example

map<-readRDS("data/map/world_ctr_4326.Rdata")
hc2<-hc %>% filter(where1 !="_no_", where2 !="_no_")
res_where_what<- where.what(hc=hc2,
                            test=FALSE,
                            map = map, 
                            minsamp=10,
                            mintest =5,
                            title = "Topic news by states - Salience")
res_where_what$plotly

res_where_what<- where.what(hc=hc2,
                            test=TRUE,
                            minsamp=10,
                            map = map, 
                            mintest =5,
                            title = "Topic news by states - Significance")
res_where_what$plotly

The analysis reveals that some countries are “specialized” in the topic during the period of observation. For example 53.5% of the news about Hungary was associated to the question of migrants and refugees, which is obviously related to the mediatization of the wall established by Viktor Orban in 2015. Other countries are characterized on the contrary by an under-representation of the topic like the USA where the topic is only associated to 0.7% of news. But the situation will change after Donald Trump’s election who will also establish a wall which will dramatically increase the number of news about USA and migrants.

WHEN.WHO.WHAT

Despite our limited sample size, we can try to ask more complex question that combine three dimensions. We can for example examine the synchronization of media through time about the topic of interest (WHEN.WHO.WHAT).

Example

res_when_who_what<- when.who.what(hc=hc,
                                  test = FALSE,
                                  minsamp = 20,
                                  mintest = 5,
                                  title = "Topic news by month and by media - Salience")
res_when_who_what$plotly

res_when_who_what<- when.who.what(hc=hc,
                                  test = TRUE,
                                  minsamp = 20,
                                  mintest = 5,
                                  title = "Topic news by month and by media - Significance")
res_when_who_what$plotly

The figure reveals a global synchronization of media agenda concerning the topic, especially concerning the major peak of interest located in september 2015. The first period of crisis of April 2015 is also visible in all media, with the exception of the belgian newspaper “Dernière Heure” which did not cover apparently the dramatic events of boat sinking in the Mediterranean more than usual. Another interesting difference can be observed for the two algerian newspapers that was characterized by an higher coverage of the topic during the year 2014.

WHERE.WHO.WHAT

Another example of combination of the three dimensions can be realized by exploring if some countries are more mentioned by some media in relation with the topic of interest. In other words, do we observe a geographic synchronization of the agenda of media.

Example

hc2<-hc %>% filter(where1 !="_no_", where2 !="_no_") %>% mutate(who=substr(who,4,6))
res_where_who_what<- where.who.what(hc= hc2,
                                    maxloc= 10,
                                    test=FALSE,
                                    minsamp=5,
                                    mintest=2,
                                    title = "Topic news by media and by states - Salience")
res_where_who_what$plotly

res_where_who_what<- where.who.what(hc= hc2,
                                    maxloc= 10,
                                    test=TRUE,
                                    minsamp=5,
                                    mintest=2,
                                    title = "Topic news by media and by states - Salience")
res_where_who_what$plotly

NA

The analyse reveals that some countries are systematically associated to the topic by all media like Turkey or Greece. But other countries like Syria are associated to variable patterns of interest in relation with the topic: it is clearly more associated in Algeria, neutral in Belgium and less associated in France.

WHEN.WHERE.WHAT

The last case of combination of three dimensions concerns the time variation of the association between the topics and the countries through time. It can typically reveal the effect of dramatic event occuring in one country at a period of time. Unfortunately, the sample is too limited in size for an in depth exploration of crisis and we are obliged to limit our example to the comparison of the 8 quarters of years.

Function

Example

hc2<-hc %>% filter(where1 !="_no_", where2 !="_no_") %>% mutate(when=cut(when, breaks="quarte"))
res_when_where_what<- when.where.what(hc=hc2,
                                    maxloc= 10,
                                    test=FALSE,
                                    minsamp=5,
                                    mintest=2,
                                    title = "Topic news by year and by states - Salience")
res_when_where_what$plotly

res_when_where_what<- when.where.what(hc=hc2,
                                    maxloc= 10,
                                    test=TRUE,
                                    minsamp=5,
                                    mintest=2,
                                    title = "Topic news by year and by states - Significance")
res_when_where_what$plotly

NA

The analysis confirms that in the majority of case, the most important association of countries with the topic took place in 2015 with a major peak in the third quarter (August-September-October). But some interesting exceptions can be observed, in particular in the case of Italy which was associated earlier to the question of migrants and refugees. But the analysis is difficult here because of the too important level of time aggregation.